Dim name,age,num,msg
msg1 = "请输入你的名字"
msg2 = "请输入你的年龄"
msg3 = "请输入你的学号"
name = InputBox(msg1)
age = InputBox(msg2)
num = InputBox(msg3)
MsgBox name
MsgBox age
MsgBox num